home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / twm-listing 5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  581b  |  23 lines
  1. 10 REM WINPUT-DEMO
  2. 20 :
  3. 30 SYS32168
  4. 40 POKE53280,6 :POKE53281,0 :PRINTCHR$(31)CHR$(18)CHR$(147)
  5. 50 :
  6. 60 REM ----- NORMALE EINGABE
  7. 70 (null) 5,5,"EINGABE : ",A,10,12,A$
  8. 80 (null) 7,5,6,"IHRE EINGABE : "A$
  9. 90 :
  10. 100 REM ----- VERWENDUNG VON "ZEICHEN"
  11. 110 Z$="JN"+CHR$(133) :REM +F1
  12. 120 (null) 10,5,"SIE KOENNEN ZWISCHEN"
  13. 130 (null) 12,5,"'J', 'N' UND 'F1' WAEHLEN !"
  14. 140 (null) 14,5,6,"ALLES KLAR ? ",,Z$,1,12,JN$
  15. 150 IF FF$=CHR$(133) THEN (null) 16,5," AHA !, F1 GEDRUECKT !" :GOTO 170
  16. 160 (null) 16,5,6,"IHRE EINGABE : "JN$
  17. 170 :
  18. 180 REM ----- ZAHLENEINGABE
  19. 190 T=-34.234
  20. 200 (null) 19,5,6,"EINE ZAHL > ",N,10,12,T
  21. 210 (null) 21,5,6,"IHRE EINGABE : "T
  22. 220 :
  23.